1 REM *********************************
2 REM *                               *
3 REM *          PROGRAMM  2          *
4 REM *                               *
5 REM *   ERSTELLEN UND AUFRUF EINES  *
6 REM *        HILFSBILDSCHIRMES      *
7 REM *                               *
8 REM * HEIMO PONNATH    HAMBURG 1985 *
9 REM *********************************
10 PRINTCHR$(147):POKE785,0:POKE786,96:GOTO30
15 REM -------- UP CURSOR SETZEN ------
20 POKE211,SP:POKE214,Z:SYS58640:RETURN
25 REM- ERSTELLEN DES HILFSBILDSCHIRMES-
30 Z=1:SP=1:GOSUB20:PRINT"**************************************"
40 Z=21:SP=1:GOSUB20:PRINT"**************************************"
50 Z=10:SP=7:GOSUB20:PRINT"TEST FUER DIE VERSCHIEBUNG"
55 REM ---- AUFRUF ZUM VERSCHIEBEN ----
60 A=USR(DUMMY)
65 REM ---BILDSCHIRM NEU BESCHREIBEN---
70 GETA$:IFA$=""THEN70
80 PRINTCHR$(147):Z=2:SP=2:GOSUB20:PRINT"JETZT SOLLTE DER ALTE BILDSCHIRM"
90 Z=4:SP=2:GOSUB20:PRINT"UNTER DAS KERNAL-ROM GESCHOBEN SEIN"
100 PRINT:PRINT:PRINT" -- JEDER  USR-AUFRUF HOLT DEN --"
110 PRINT" -- HILFSBILDSCHIRM WIEDER .   --"
120 PRINT" -- AUCH IM DIREKT-MODUS       --"
130 PRINT:PRINT:PRINT"  PROBIEREN SIE MAL: A=USR(1) [RETURN]"
140 Z=19:SP=0:GOSUB20:END